COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		TITLE INMS  DIMENSION R(4000),K(400),RS(128),KK(400)
C00005 ENDMK
C⊗;
	TITLE INMS  ;DIMENSION R(4000),K(400),RS(128),KK(400)
	EXTERNAL GETEXT,PUTEXT,EXTIN,EXTOUT ,FINEXT;EQUIVALENCE (J,RS(18)),(JJ,RS(19))
R:	BLOCK =4000  ;	TYPE 1
K:	BLOCK =400
RS:	BLOCK =128
INMUS:	MOVE 1,[ASCIZ/TMP  /]
	MOVEM 1,NAM#
	JSA 16,GETEXT  ;1	FORMAT(' TYPE FILE NAME  '$)
	JUMP NAM  ;2	FORMAT(A5)
	JUMP [ASCIZ/MS   /]
	JSA 16,EXTIN  ;ACCEPT 2,NAM
 	JUMP RS  ;	CALL GETEXT(NAM,'MS')
	JUMP [=128]
;;	JSA 16,EXTIN  ;CALL EXTIN(RS,128)
;;	JUMP K
;;	JUMP RS+=17  ;CALL EXTIN(K,J)
I1:	JSA 16,EXTIN  ;CALL EXTIN(R,JJ)
	JUMP R
	JUMP RS+=18	;THE WD CNT.
	MOVE R		;IF(R(1).NE.INTEGER 1)GO TO I3
	CAIE 1		;CATCHES OLD FORMAT
	JRST I3
	USETI 12,2		;READ 2ND RECORD AGAIN
	JSA 16,EXTIN  ;CALL EXTIN(RS,128)
	JUMP K
	JUMP RS+=17  ;CALL EXTIN(K,J)
	JRST I1		;GO BACK AND GET R ARRAY
I3:	MOVEI 1,1  	;3	N=1
	MOVEI 2,2   	;NN=1
	MOVEM 1,K	;K(1)=1
	MOVEI 3,K	;LOC OF K    ;KK(NN)=N
	MOVEI 4,R	;LOC OF R
	MOVEI 5,1
I4:	ADD 4,5  ;4	N=N+R(N)+3       HERE'S THE LOOP 
	KIFIX 5,-1(4)	;GET WD CNT -2
	ADDI 5,3   	;NN=NN+1
	ADD 1,5
	AOJ 2,
	AOJ 3,		;UPDATE THE COUNTER
	MOVEM 1,(3)   	;KK(NN)=N
	CAMGE 1,RS+=18  ;IF(N.LT.JJ)GO TO 4
	JRST I4
;;	MOVEM 2,RS+=17	; NOT NEEDED.  GOTTEN AT READIN TIME.
I5:	JSA 16,PUTEXT   ;5	CALL PUTEXT('X','MS')
	JUMP [ASCIZ/X    /]
	JUMP [ASCIZ/MS   /]
	JSA 16,EXTOUT  ;CALL EXTOUT(RS,128)
	JUMP RS
	JUMP [=128]
 	JSA 16,EXTOUT  ;	CALL EXTOUT(KK,J)
	JUMP K
	JUMP RS+=17
	JSA 16,EXTOUT  ;CALL EXTOUT(R,JJ)
	JUMP R
	JUMP RS+=18
	JSA 16,FINEXT
	CALLI 12
	END  INMUS